home *** CD-ROM | disk | FTP | other *** search
/ Your Choice 3 / Your Choice Software Collection 3.iso / os2 / grfcdemo / demo.@ / HDR1.POS < prev    next >
Encoding:
Text File  |  1993-12-22  |  1.5 KB  |  66 lines
  1. %%Title: GraphiC PostScript file
  2. %%Creator: Scientific Endeavors Corp.
  3. %%Pages: 1
  4. %%EndComments
  5. % Copyright 1988-1993 by Scientific Endeavors Corp. All rights reserved.
  6. /downdict 4 dict def
  7. /sdown
  8.  {downdict begin
  9.   /thestring exch def
  10.   /lineskip exch def
  11.   thestring
  12.    {
  13.     /charcode exch def
  14.     /thechar ( ) dup 0 charcode put def
  15.     0 lineskip neg rmoveto
  16.     gsave
  17.      thechar stringwidth pop 2 div neg 0 rmoveto
  18.      thechar show
  19.     grestore
  20.    } forall
  21.    end
  22.   } def
  23.  
  24. /updict 4 dict def
  25. /sup
  26.  {updict begin
  27.   /thestring exch def
  28.   /lineskip exch def
  29.   thestring 
  30.    {
  31.     /charcode exch def
  32.     /thechar ( ) dup 0 charcode put def
  33.     0 lineskip rmoveto
  34.     gsave
  35.      thechar stringwidth pop 2 div neg 0 rmoveto
  36.      thechar show
  37.     grestore
  38.    } forall
  39.    end
  40.   } def
  41.  
  42. /leftdict 4 dict def
  43. /sleft
  44.  {leftdict begin
  45.   /thestring exch def
  46.   thestring
  47.    {
  48.     /charcode exch def
  49.     /thechar ( ) dup 0 charcode put def
  50.     gsave
  51.      thechar stringwidth pop neg 0 rmoveto
  52.      thechar show
  53.     grestore
  54.    } forall
  55. % need another left shift after the string is printed
  56.    thechar stringwidth pop neg 0 rmoveto
  57.    end
  58.   } def
  59.  
  60. /path{newpath moveto{lineto}repeat} bind def 
  61. /cnp{newpath moveto{lineto}repeat closepath} bind def
  62. /clp{moveto{lineto}repeat closepath} bind def
  63. /rps{ 3 1 roll path stroke} bind def
  64. /rcs{ 3 1 roll clp stroke} bind def
  65. /setF { currentscreen 4 -2 roll pop 3 1 roll setscreen} bind def
  66.